home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).adf / DTdbS / tdbs3 (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  21KB  |  502 lines
  1. SCREEN 2,640,200,4,2
  2. WINDOW 2,,,0,2
  3. RANDOMIZE TIMER
  4. DEFLNG a-z
  5. DECLARE FUNCTION opendiskfont&() LIBRARY
  6. LIBRARY "diskfont.library"
  7. LIBRARY "graphics.library"
  8. altfont=PEEKL(WINDOW(8)+52)
  9. neufont$="amber.font"+CHR$(0)
  10. hoehe=19:pref=96 
  11. text(0)=SADD(neufont$)
  12. text(1)=(2^16)*hoehe+pref
  13. font=opendiskfont&(VARPTR(text(0)))
  14. IF font<>0 THEN CALL setfont&(WINDOW(8),font)
  15. FOR i=1 TO 5
  16. MENU i,0,1,""
  17. NEXT
  18. MENU ON
  19. FOR i=0 TO 27
  20. PALETTE i,0,0,0
  21. NEXT
  22. OPEN "I",#1,"Held"
  23. WHILE NOT EOF(1)
  24. INPUT #1,spieler$,geld,punkte,mut,waffe$
  25. INPUT #1,kleidung$,geschick,parade,attacke 
  26. INPUT #1,charisma,intelligenz,kraft,lebensenergie,tp 
  27. WEND
  28. CLOSE #1
  29. start:
  30. CALL freesprite (0) 
  31. COLOR 2
  32. 1 CLS:LOCATE 3,3
  33. schr$="Du stehst in einem dunkelen, feuchten, etwa zwei Meter":sp(schr$):LOCATE 5,3
  34. schr$="breiten Gang. Dieser fuerht nur nach Sueden. Der Gang":sp(schr$):LOCATE 7,3
  35. schr$="ist komplett aus dem Stein herausgeschlagen, mann koennte":sp(schr$):LOCATE 9,3
  36. schr$="denken Du befindest Dich tief unter der Erde. Es wird schon":sp(schr$):LOCATE 11,3
  37. schr$="relativ warm hier und Du faengst an zu schwitzen":sp(schr$):LOCATE 14,3:COLOR 3
  38. schr$="Du kannst nur nach Sueden < F1 >":sp(schr$):COLOR 2 
  39. PALETTE 5,0.93,0.2,0
  40. PALETTE 6,0.4,0.6,1
  41. PALETTE 7,0.8,0.4,0.33
  42. PALETTE 2,1,0.87,0.73
  43. PALETTE 3,1,1,0.13
  44. WHILE 1
  45. getkey x
  46. IF x=1 THEN 2
  47. IF x=11 THEN GOSUB dokument:GOTO 1
  48. WEND
  49.  
  50. 2 CLS:LOCATE 3,3
  51. schr$="Nach einer laengeren Wegstrecke kommst Du an eine Kreuzung.":sp(schr$):LOCATE 5,3
  52. schr$="Der Gang teilt sich hier in vier Wegrichtungen; nach Norden,":sp(schr$):LOCATE 7,3
  53. schr$="nach Osten, nach Sueden und nach Westen":sp(schr$):LOCATE 10,3:COLOR 3
  54. schr$="Willst Du nach Norden < F1 >":sp(schr$):LOCATE 12,3
  55. schr$="Gehst Du lieber nach Osten? < F2 >":sp(schr$):LOCATE 14,3
  56. schr$="Ist der sonnige Sueden angesagt? < F3 >":sp(schr$):LOCATE 16,3
  57. schr$="Oder willst Du nach Westen < F4 >":sp(schr$):COLOR 2
  58. WHILE 1
  59. getkey x
  60. IF x=1 THEN 1
  61. IF x=2 THEN 3
  62. IF x=3 THEN 4
  63. IF x=4 THEN 5
  64. IF x=11 THEN GOSUB dokument:GOTO 2
  65. WEND
  66.  
  67. 3 CLS:LOCATE 3,3
  68. schr$="Der Gang, auf dem Du Dich zur Zeit befindest, teilt sich":sp(schr$):LOCATE 5,3
  69. schr$="nach einiger Zeit. Er fuehrt nach Sueden, Osten und Westen.":sp(schr$):LOCATE 7,3
  70. schr$="Der Gang ist wie alle anderen Gaenge hier! Also er ist feucht, ca.":sp(schr$):LOCATE 9,3
  71. schr$="2 Meter breit usw. Nun liegt es an Dir wo Du langgehen willst.":sp(schr$):LOCATE 12,3:COLOR 3
  72. schr$="Nach Osten geht es mit < F1 >":sp(schr$):LOCATE 14,3
  73. schr$="In den Sueden geht es mit < F2 >":sp(schr$):LOCATE 16,3
  74. schr$="Willst Du nach Westen druecke < F3 >":sp(schr$):COLOR 2
  75. WHILE 1
  76. getkey x
  77. IF x=1 THEN 6
  78. IF x=2 THEN 9
  79. IF x=3 THEN 2
  80. IF x=11 THEN GOSUB dokument:GOTO 3
  81. WEND
  82.  
  83. 4 CLS:LOCATE 3,3
  84. schr$="Du stehst in einem Gang, der sich in drei Richtungen":sp(schr$):LOCATE 5,3
  85. schr$="weiterfuehrt. Es geht nach Sueden, Osten und nach Norden.":sp(schr$):LOCATE 7,3
  86. schr$="Was Dir an diesem Gang besonders auffaellt, ist das der":sp(schr$):LOCATE 9,3
  87. schr$="Boden besonders stark mit Mosen und Algen bewachsen ist!":sp(schr$):LOCATE 12,3:COLOR 3
  88. schr$="< F1 > bringt Dich nach Norden":sp(schr$):LOCATE 14,3
  89. schr$="Mit < F2 > geht es nach Sueden":sp(schr$):LOCATE 16,3
  90. schr$="Du kannst auch nach Osten < F3 >":sp(schr$):COLOR 2
  91. WHILE 1
  92. getkey x
  93. IF x=1 THEN 2
  94. IF x=2 THEN 10
  95. IF x=3 THEN 9
  96. IF x=11 THEN GOSUB dokument:GOTO 4
  97. WEND
  98.  
  99. 5 CLS:LOCATE 3,3
  100. schr$="Dieser Gang fuehrt nur nach Westen und nach Osten!":sp(schr$):LOCATE 5,3
  101. schr$="Im Westen siehst Du eine schwache Lichtquelle und Dir steigt":sp(schr$):LOCATE 7,3
  102. schr$="der wohlbekannt Geruch von zartem, gebratenen Fleisch mit ":sp(schr$):LOCATE 9,3
  103. schr$="Gemuese in die Nase, es riecht herrlicht. So langsam laueft":sp(schr$):LOCATE 11,3
  104. schr$="Dir ja das Wasser im Mund zusammen!":sp(schr$):LOCATE 14,3:COLOR 3
  105. schr$="Willst Du deinem Geschmack folgen und zum Essen gehen < F1 >":sp(schr$):LOCATE 16,3
  106. schr$="Oder willst Du lieber wieder zurueck gehen < F2 >":sp(schr$):COLOR 2
  107. WHILE 1
  108. getkey x
  109. IF x=1 THEN 11
  110. IF x=2 THEN 2
  111. IF x=11 THEN GOSUB dokument:GOTO 5
  112. WEND
  113.  
  114. 6 CLS:LOCATE 3,3
  115. schr$="Du kommst in eine grosse Tropfsteinhoehle, deren Ausmasse":sp(schr$):LOCATE 5,3
  116. schr$="Du bei diesem schwachen Licht nur ahnen kannst. Aus dunklen":sp(schr$):LOCATE 7,3
  117. schr$="Nischen huschen Fledermaeuse an Dir vorbei, um woanders ":sp(schr$):LOCATE 9,3
  118. schr$="wieder im Dunkeln zu verschwinden. Du bist fasziniert von":sp(schr$):LOCATE 11,3
  119. schr$="der Schoenheit der Tropfsteingebilde, die hier im Laufe von":sp(schr$):LOCATE 13,3
  120. schr$="Jahrtausenden entstanden sind.":sp(schr$):LOCATE 15,3
  121. schr$="Dann wird Deine Aufmerksamkeit von einer Schwachen Licht-":sp(schr$):LOCATE 17,3
  122. schr$="quelle erregt. Quer ueber den ganzen Hoehlenboden zieht sich":sp(schr$):LOCATE 19,3
  123. schr$="etwa ein zehn Meter breiter Streifen einer seltsamer, matt ":sp(schr$):LOCATE 21,3
  124. schr$="leuchtender Substanz":sp(schr$):SLEEP:SLEEP:SLEEP:CLS:LOCATE 3,3
  125. schr$="Lueckenlos ist der Boden davon bedeckt; einige Stalagmiten":sp(schr$):LOCATE 5,3
  126. schr$="ragen aus der Substanz hervor. In dem schwachen Lichtschein":sp(schr$):LOCATE 7,3
  127. schr$="kannst Du erkennen, dass die Hoehlendecke in diesem Bereich":sp(schr$):LOCATE 9,3
  128. schr$="mit zahlreichen nadelspitzen Stalakiten versehen ist, von ":sp(schr$):LOCATE 11,3
  129. schr$="denen manche so eine schmale Basis haben, dass sie jeden Moment":sp(schr$):LOCATE 13,3
  130. schr$="herabzustuerzen drohen.":sp(schr$):LOCATE 15,3
  131. schr$="Was dieser Hoehle aber eine besonders schaurige, beklemmende":sp(schr$):LOCATE 17,3
  132. schr$="Stimmung verleiht, ist die Tatsache, dass an dem Rand des ":sp(schr$):LOCATE 19,3
  133. schr$="seltsamen Stoffes, der sich hier ueber den Boden hinzieht, ":sp(schr$):LOCATE 21,3
  134. schr$="einige Skelette und menschliche Ueberreste liegen":sp(schr$):SLEEP:SLEEP:SLEEP:CLS:LOCATE 3,3
  135. schr$="Das heisst, eigentlich kann man die Haltung nicht liegen nen-":sp(schr$):LOCATE 5,3
  136. schr$="nen, denn die Gerippe sind in merkwuerdigen Posen zusammen-":sp(schr$):LOCATE 7,3
  137. schr$="gesunken. Anderswo ragen in unglaublichen - jedem Gesezt der":sp(schr$):LOCATE 9,3
  138. schr$="der Schwerkraft wiedersprechenden - Stellungen Gegenstaende":sp(schr$):LOCATE 11,3
  139. schr$="aus diesem Stoff hervor: Lanzen, die nur mit der Spitze den":sp(schr$):LOCATE 13,3
  140. schr$="Boden beruehen, ohne umzufallen usw.":sp(schr$):LOCATE 16,3:COLOR 3
  141. schr$="Du kannst die Hoehle weiter untersuchen, < F1 >":sp(schr$):LOCATE 18,3
  142. schr$="Oder wieder verlassen < F2 >":sp(schr$):LOCATE 20,3
  143. schr$="Willst Du versuchen die Substanz zu ueberqueren? < F3 >":sp(schr$):COLOR 2
  144. WHILE 1
  145. getkey x
  146. IF x=1 THEN 100
  147. IF x=2 THEN 3
  148. IF x=3 THEN 102
  149. IF x=11 THEN GOSUB dokument:GOTO 6
  150. WEND
  151.  
  152. 7 CLS:LOCATE 3,3
  153. schr$="Du kommst jetzt in den anderen Teil der Tropfsteinhoehle.":sp(schr$):LOCATE 5,3
  154. schr$="Von hier fuehren zwei Wege weg: nach Westen und nach Sueden":sp(schr$):LOCATE 7,3
  155. schr$="In der Ferne hoerst Du ein rummpeln, das schnell an laut-":sp(schr$):LOCATE 9,3
  156. schr$="staerke zunimmt - Nein es ist nicht irgendeine Heavy Metal":sp(schr$):LOCATE 11,3
  157. schr$="Band die sich hierher verlaufen hat - es ist vielmehr ein -":sp(schr$):LOCATE 13,3
  158. schr$="Oh nein - ein Hoehlenbaer, der genau auf Dich zukommt.":sp(schr$)
  159. IF gf=1 THEN 113
  160. monstername$="Hoehlenbaer":monsterattacke=15:monsterparade=12:monstertrefferpunkte=7
  161. monsterpunkte=26:monsterlebensenergie=30:SLEEP:SLEEP:SLEEP:i=3:gf=1:GOTO kampf 
  162.  
  163. 8 CLS:LOCATE 3,3:COLOR 7
  164. schr$="Du folgst einem langem Gang, der sich so scheint es immer":sp(schr$):LOCATE 5,3
  165. schr$="mehr nach oben windet. Ueber viele Treppen steigst Du ":sp(schr$):LOCATE 7,3
  166. schr$="hoch hinauf, bis Du aufeinmal Tageslicht entdeckst! Ja ":sp(schr$):LOCATE 9,3
  167. schr$="ist es denn die Moeglichkeit? Du bist wieder im freien!":sp(schr$):LOCATE 11,3
  168. schr$="So nun aber nichts wie hin zu der naechsten Stadt und den":sp(schr$):LOCATE 13,3
  169. schr$="Moerder deines besten Freundes suchen ...":sp(schr$):SLEEP:SLEEP:SLEEP
  170. OPEN "Held" FOR OUTPUT AS #1
  171. WRITE #1,spieler$,geld,punkte,mut,waffe$
  172. WRITE #1,kleidung$,geschick,parade,attacke 
  173. WRITE #1,charisma,intelligenz,kraft,lebensenergie,tp 
  174. CLOSE #1
  175. LOAD "TDBS4",r
  176.  
  177. 9 CLS:LOCATE 3,3
  178. schr$="Du stehst in einem Gang, der sich in drei Richtungen teilt;":sp(schr$):LOCATE 5,3
  179. schr$="Es geht nach Norden, Sueden und nach Westen. Nun stellt sich":sp(schr$):LOCATE 7,3
  180. schr$="Dir die Frage in welche Richtung Du gehen sollst:":sp(schr$):LOCATE 10,3:COLOR 3
  181. schr$="Du gehst nach Norden < F1 >":sp(schr$):LOCATE 12,3
  182. schr$="Du gehst lieber nach Sueden < F2 >":sp(schr$):LOCATE 14,3
  183. schr$="Du entscheidest dich fuer Westen < F3 >":sp(schr$):COLOR 2
  184. WHILE 1
  185. getkey x
  186. IF x=1 THEN 3
  187. IF x=2 THEN 12
  188. IF x=3 THEN 4
  189. IF x=11 THEN GOSUB dokument:GOTO 9
  190. WEND
  191.  
  192. 10 CLS:LOCATE 3,3
  193. schr$="Du befindest Dich in einem Gang der von Norden nach Sueden":sp(schr$):LOCATE 5,3
  194. schr$="verlaueft. Dir faellt auf, dass der Boden des Ganges aus ":sp(schr$):LOCATE 7,3
  195. schr$="grossen, rechteckigen Steinplatten besteht. Nach ein paar":sp(schr$):LOCATE 9,3
  196. schr$="Metern entdeckst Du, dass ein Hebel aus der Wand ragt - und":sp(schr$):LOCATE 11,3
  197. schr$="nach vier Metern ein weiterer Hebel. Zwischen den laueft ein":sp(schr$):LOCATE 13,3
  198. schr$="ungefair 30 cm hoher Steinwulst quer ueber den Boden.":sp(schr$):LOCATE 16,3:COLOR 3
  199. schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 18,3
  200. schr$="Du kannst nach Sueden < F2 >":sp(schr$):LOCATE 20,3
  201. schr$="Du kannst den Hebel nach unten ziehen < F3 >":sp(schr$):LOCATE 22,3
  202. schr$="Du kannst den Hebel auch nach oben druecken < F4 >":sp(schr$):COLOR 2
  203. WHILE 1
  204. getkey x
  205. IF x=1 THEN 4
  206. IF x=2 THEN 13
  207. IF x=3 THEN 106
  208. IF x=4 THEN 107
  209. IF x=11 THEN GOSUB dokument:GOTO 10
  210. WEND
  211.  
  212. 11 CLS:LOCATE 3,1
  213. schr$="Na ja, Du befindest Dich jetzt in einer Hoehle von ungefair":sp(schr$):LOCATE 5,1
  214. schr$="10x8 Metern groesse. In der Mitte der Hoehle steht ein grosser":sp(schr$):LOCATE 7,1
  215. schr$="Kessel, in dem eine herzhafte Suppe kocht. Ansonsten bitet die":sp(schr$):LOCATE 9,1
  216. schr$="Hoehle noch zwei Schlafstaetten aus Stroh und neben der einen":sp(schr$):LOCATE 11,1
  217. schr$="steht eine grosse Keule, gemacht auch einem wohl riesiegem ":sp(schr$):LOCATE 13,1
  218. schr$="Knochen von irgendeinem Tier.":sp(schr$):LOCATE 15,1
  219. schr$="Die Hoehle hat nur einen Ausgang nach Osten hin!":sp(schr$):LOCATE 17,1 
  220. IF kam=1 THEN GOTO 103
  221. schr$="Als Du Dir noch so die Hoehle - es ist uebrigens eine Wohn-":sp(schr$):LOCATE 19,1
  222. schr$="staette von einer Bergtrollfamilie - anschaust, merkst Du":sp(schr$):LOCATE 21,1
  223. schr$="ueberhaupt nicht, als aufeinmal ein Bergtroll hinter Dir steht!":sp(schr$) 
  224. SLEEP:SLEEP:SLEEP:monstername$="Bergtroll":monsterattacke=10:monsterparade=5:monstertrefferpunkte=5
  225. monsterpunkte=25:monsterlebensenergie=30:kam=1:i=1:GOTO kampf
  226.  
  227. 12 CLS:LOCATE 3,3
  228. schr$="Du befindest Dich in einem ca. 4x5 Meter grossem Raum.":sp(schr$):LOCATE 5,3
  229. schr$="mit nur einem Ausgang in der Nordwand. Ausser einem Brun-":sp(schr$):LOCATE 7,3
  230. schr$="nen, der in der Mitte des Raumes steht, enhaelt der Raum":sp(schr$):LOCATE 9,3
  231. schr$="keine weiteren Gegenstaende.":sp(schr$):LOCATE 12,3:COLOR 3
  232. schr$="Du kannst den Raum wieder verlassen < F1 >":sp(schr$):LOCATE 14,3
  233. schr$="Willst Du Wasser aus dem Brunnen trinken? < F2 >":sp(schr$):COLOR 2
  234. WHILE 1
  235. getkey x
  236. IF x=1 THEN 9
  237. IF x=2 THEN 112
  238. IF x=11 THEN GOSUB dokument:GOTO 12
  239. WEND
  240.  
  241. 13 CLS:LOCATE 3,3
  242. schr$="Du stehst in einem Kreisrunden Raum, mit nur einem Ausgang":sp(schr$):LOCATE 5,3
  243. schr$="nach Norden. Die Waende sind alle mit verschiedenen Symbolen":sp(schr$):LOCATE 7,3
  244. schr$="und Zeichen bemalt. Der Ganze Raum wirk sehr unheimlich, dar":sp(schr$):LOCATE 9,3
  245. schr$="es so scheint als ob aus einigen Zeichen Licht heraustritt.":sp(schr$):LOCATE 12,3:COLOR 3
  246. schr$="Wenn Du willst kannst Du den Raum wieder verlassen < F1 >":sp(schr$):LOCATE 14,3
  247. schr$="Oder willst Du den Raum nochmal genauer untersuchen? < F2 >":sp(schr$):COLOR 2
  248. WHILE 1
  249. getkey x
  250. IF x=1 THEN 10
  251. IF x=2 THEN 111
  252. IF x=11 THEN GOSUB dokument:GOTO 13
  253. WEND
  254.  
  255. 100 CLS:LOCATE 3,3
  256. schr$="Der Boden ist uneben und stellenweise glizschig, Stalagmiten":sp(schr$):LOCATE 5,3
  257. schr$="behindern Dich. In den zahlreichen Nischen und Spalten gibt es":sp(schr$):LOCATE 7,3
  258. schr$="nichts Besonderes zu entdecken.":sp(schr$):LOCATE 9,3
  259. schr$="Du hast Dich jetzt dem breiten Streifen genaehrt, der von ":sp(schr$):LOCATE 9,3
  260. schr$="Wand zu Wand den Hoehlenboden lueckenlos bedeckt. Die selt-":sp(schr$):LOCATE 11,3
  261. schr$="same Substanz strahl ein schwaches Licht aus. Der suessliche":sp(schr$):LOCATE 13,3
  262. schr$="Verwesungsgeruch und die merkwuerdig hingekauerten Toten lassen":sp(schr$):LOCATE 15,3
  263. schr$="Dich erschauern.":sp(schr$):LOCATE 18,3:COLOR 3
  264. schr$="Willst Du den Streifen naeher untersuchen < F1 >":sp(schr$):LOCATE 20,3
  265. schr$="oder lieber die Hoehle verlassen? < F2 >":sp(schr$):COLOR 2
  266. WHILE 1
  267. getkey x
  268. IF x=1 THEN 101
  269. IF x=2 THEN 3
  270. IF x=11 THEN GOSUB dokument:GOTO 100
  271. WEND
  272.  
  273. 101 CLS:LOCATE 3,3
  274. schr$="Furcht und Vorischt halten Dich davon ab, diesen Streifen zu":sp(schr$):LOCATE 5,3
  275. schr$="betreten. Du erinnerst dich, eben bei einer der Leichen eine":sp(schr$):LOCATE 7,3
  276. schr$="rostige Machete gesehen zu haben. Du holst sie und willst ":sp(schr$):LOCATE 9,3
  277. schr$="damit in der Substanz herumstochern, aber sobald die Machete":sp(schr$):LOCATE 11,3
  278. schr$="den Stoff beruehrt hat, klebt sie an der Masse fest. Auch mit":sp(schr$):LOCATE 13,3
  279. schr$="auesserster Kraftanstrengung gelingt es Dir nicht, die Machete":sp(schr$):LOCATE 15,3
  280. schr$="wieder loszubekommen.":sp(schr$):LOCATE 18,3:COLOR 3
  281. schr$="Willst Du ueber die Substanz gehen < F1 >":sp(schr$):LOCATE 20,3
  282. schr$="Willst Du die Hoehle lieber verlassen < F2 >":sp(schr$):COLOR 2
  283. WHILE 1
  284. getkey x
  285. IF x=1 THEN 102
  286. IF x=2 THEN 3
  287. IF x=11 THEN GOSUB dokument:GOTO 1
  288. WEND
  289.  
  290. 102 IF wort=1 THEN 7
  291. CLS:LOCATE 3,1
  292. schr$="Gerade als Du die Substanz betrittst, bleibst Du daran kleben!":sp(schr$):LOCATE 5,1
  293. schr$="Du versuchst Dich loszumachen, verfaengst Dich aber immer mehr":sp(schr$):LOCATE 7,1
  294. schr$="in dem Klebstoff! - Tja so endet dann auch mal ein Heldenleben!":sp(schr$)
  295. SLEEP:SLEEP:SLEEP:GOTO schluss
  296.  
  297. 103 LOCATE 17,1
  298. schr$="Neben Dir liegt ein toter Bergtroll!":sp(schr$):LOCATE 19,1:COLOR 3
  299. schr$="Du kannst die Suppe essen < F1 >":sp(schr$):LOCATE 21,1
  300. schr$="oder die Hoehle wieder verlassen < F2 >":sp(schr$):COLOR 2
  301. WHILE 1
  302. getkey x
  303. IF x=1 THEN 104
  304. IF x=2 THEN 5
  305. IF x=11 THEN GOSUB dokument:GOTO 11
  306. WEND
  307.  
  308. 104 IF essen=1 THEN 105
  309. CLS:LOCATE 3,3
  310. schr$="Du kostest die Suppe und musst sagen dass sie sehr gut":sp(schr$):LOCATE 5,3
  311. schr$="schmeckt. Mhmm.. Du isst gleich alles auf. Und nahhaft!":sp(schr$):LOCATE 7,3
  312. schr$="Dr. Oetker wuerde vor neid erblassen!! Die Suppe ist einfach":sp(schr$):LOCATE 9,3
  313. schr$="ein Gedicht":sp(schr$):charisma=charisma+1:lebensenergie=lebensenergie+4:mut=mut+2:kraft=kraft+2
  314. attacke=attacke+2:parade=parade+1:punkte=punkte+2:intelligenz=intelligenz+1:geschick=geschick+1
  315. essen=1:SLEEP:SLEEP:SLEEP:GOTO 11
  316.  
  317. 105 CLS:LOCATE 3,3
  318. schr$="Tja so'ne Scheisse, da frisst er die Suppe mit einmal ":sp(schr$):LOCATE 5,3
  319. schr$="auf und laesst den anderen nichts mehr uebrig. Alter":sp(schr$):LOCATE 7,3
  320. schr$="Ego!!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 11
  321.  
  322. 106 CLS:LOCATE 3,3
  323. schr$="Nichts passiert!":sp(schr$):LOCATE 6,3:COLOR 3
  324. schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 8,3
  325. schr$="Du kannst auch nach Sueden gehen < F2 >":sp(schr$):LOCATE 10,3
  326. schr$="Den Hebel kannst Du noch nach oben druecken < F3 >":sp(schr$):COLOR 2
  327. WHILE 1
  328. getkey x
  329. IF x=1 THEN 4
  330. IF x=2 THEN 13
  331. IF x=3 THEN 107
  332. IF x=11 THEN GOSUB dokument:GOTO 6
  333. WEND
  334.  
  335. 107 CLS:LOCATE 3,3
  336. schr$="Vor Dir klappt auf der vollen Breite des Ganges der":sp(schr$):LOCATE 5,3
  337. schr$="Boden bis zu dem Wulst nach unten weg. Ein schwarzes":sp(schr$):LOCATE 7,3
  338. schr$="Loch tut sich auf. Du beugst Dich vorsichtig ueber den ":sp(schr$):LOCATE 9,3
  339. schr$="Rand und schauen in die Grube. Ein Knaeuel von giftigen":sp(schr$):LOCATE 11,3
  340. schr$="Guertelschlangen windet sich auf dem Boden der etwa zwei":sp(schr$):LOCATE 13,3
  341. schr$="Meter tiefen Gruebe.":sp(schr$):LOCATE 16,3:COLOR 3
  342. schr$="Du kannst ja ueber die Grube springen < F1 >":sp(schr$):LOCATE 18,3
  343. schr$="Du kannst auch noch nach Norden < F2 >":sp(schr$):LOCATE 20,3
  344. schr$="Oder willst Du den Hebel nochmal betaetigen? < F3 >":sp(schr$):COLOR 2
  345. WHILE 1
  346. getkey x
  347. IF x=1 THEN 108 
  348. IF x=2 THEN 4
  349. IF x=3 THEN 109
  350. IF x=11 THEN GOSUB dokument:GOTO 6
  351. WEND
  352.  
  353. 108 x=INT(RND*(20+1))+5
  354. IF x<kraft THEN 110
  355. CLS:LOCATE 3,3
  356. schr$="Da Du Schlappsack es wieder nicht geschaft hast ueber so":sp(schr$):LOCATE 5,3
  357. schr$="eine keine Grube zu springen musst Du jetzt eben mit den":sp(schr$):LOCATE 7,3
  358. schr$="Guertelschlangen kaempfen.":sp(schr$):i=2:monstername$="Guertelschlange":monsterattacke=10
  359. monsterparade=8:monsterlebensenergie=15:monsterpunkte=7:SLEEP:SLEEP:SLEEP:GOTO kampf
  360.  
  361. 109 CLS:LOCATE 3,3
  362. schr$="Die Falltuer ueber der Schlangengrube schliesst sich wieder.":sp(schr$):LOCATE 5,3
  363. schr$="Du kannst jetzt nach Norden und nach Sueden gehen!":sp(schr$):LOCATE 8,3:COLOR 3
  364. schr$="Mit < F1 > gehst Du nach Norden":sp(schr$):LOCATE 10,3
  365. schr$="Du kannst nach Sueden < F2 >":sp(schr$):COLOR 2
  366. WHILE 1
  367. getkey x
  368. IF x=1 THEN 4 
  369. IF x=2 THEN 13
  370. IF x=11 THEN GOSUB dokument:GOTO 109
  371. WEND
  372.  
  373. 110 CLS:LOCATE 3,3
  374. schr$="Du bist toll, Du hast es tatsaechlich geschafft ueber die":sp(schr$):LOCATE 5,3
  375. schr$="Schlangengrube zu springen !!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 13
  376.  
  377. 111 CLS:LOCATE 3,3
  378. schr$="Als Du den Raum genauer untersuchst liesst du unteranderem":sp(schr$):LOCATE 5,3
  379. schr$="folgendes:`Achtung vor der Tropfsteinhoehle'.Weiter erkennst":sp(schr$):LOCATE 7,3
  380. schr$="Du noch ein Wort, mit dem Du aber nichts weiter anfangen ":sp(schr$):LOCATE 9,3
  381. schr$="kannst. ":SLEEP:SLEEP:SLEEP:wort=1:GOTO 13
  382.  
  383. 112 CLS:LOCATE 3,3
  384. schr$="Kurze Zeit spaeter, nachdem Du das Wasser getrunken hast":sp(schr$):LOCATE 5,3
  385. schr$="merkst Du erst, dass es vergiftet war. Na so ein Pech fuer":sp(schr$):LOCATE 7,3
  386. schr$="Dich. Du windest Dich vor Schmerzen auf dem Boden, haellst":sp(schr$):LOCATE 9,3
  387. schr$="Dir den Bauch - doch ploetzlich ist alles wieder vorbei!":sp(schr$):LOCATE 11,3
  388. schr$="War es nur ein boeser Traum ?":sp(schr$)
  389. SLEEP:SLEEP:SLEEP
  390. lebensenergie=lebensenergie-5
  391. IF lebensenergie<=0 THEN schluss
  392. GOTO 12
  393.  
  394. 113 LOCATE 7,3
  395. schr$="Neben Dir liegt jetzt ein toter Hoehlenbaer, und Du bist      ":sp(schr$):LOCATE 9,3
  396. schr$="froh, das Du noch lebst, denn mit diesen Bestien ist nicht     ":sp(schr$):LOCATE 11,3
  397. schr$="zu spassen!!                                                   ":sp(schr$):LOCATE 13,3:COLOR 3
  398. schr$="                                                                ":sp(schr$):LOCATE 14,3
  399. schr$="Du kannst nach Sueden gehen < F1 >":sp(schr$):LOCATE 16,3
  400. schr$="Es geht auch noch nach Westen < F2 >":sp(schr$):COLOR 2
  401. WHILE 1
  402. getkey x
  403. IF x=1 THEN 8
  404. IF x=2 THEN 6
  405. IF x=3 THEN GOSUB dokument:GOTO 7
  406. WEND
  407.  
  408. 260 COLOR 2
  409. IF i=1 THEN 11
  410. IF i=2 THEN 10 
  411. IF i=3 THEN 7
  412. REM ********************
  413. REM ** unterprogramme **
  414. REM ********************
  415.  
  416. SUB sp(schr$) STATIC
  417. CALL text(WINDOW(8),SADD(schr$),LEN(schr$))
  418. END SUB
  419.  
  420. SUB getkey (keynumber) STATIC
  421. in$=""
  422. WHILE in$=""
  423. SLEEP
  424. in$=INKEY$
  425. WEND
  426. keynumber=ASC(in$)-128
  427. IF keynumber<1 OR keynumer>10 THEN keynumber=0
  428. END SUB
  429.  
  430.  
  431. dokument:
  432. CLS:LOCATE 3,3 
  433. PRINT "Name: ";spieler$
  434. LOCATE 5,3:COLOR 6
  435. PRINT "Mut:":COLOR 7:LOCATE 5,25:PRINT mut:COLOR 6:LOCATE 7,3
  436. PRINT "Geschick:":COLOR 7:LOCATE 7,25:PRINT geschick:COLOR 6:LOCATE 9,3
  437. PRINT "Klugheit:":COLOR 7:LOCATE 9,25:PRINT intelligenz:COLOR 6:LOCATE 11,3
  438. PRINT "Kraft:":COLOR 7:LOCATE 11,25:PRINT kraft:COLOR 6:LOCATE 13,3
  439. PRINT "Charisma:":COLOR 7:LOCATE 13,25:PRINT charisma:COLOR 6:LOCATE 15,3
  440. PRINT "Attacke:":COLOR 7:LOCATE 15,25:PRINT attacke:COLOR 6:LOCATE 17,3
  441. PRINT "Parade:":COLOR 7:LOCATE 17,25:PRINT parade 
  442. LOCATE 19,3:COLOR 5
  443. PRINT "Lebensenergie:";TAB(25);lebensenergie
  444. COLOR 6:LOCATE 5,31:PRINT "Waffe:":COLOR 7:LOCATE 5,45:PRINT waffe$
  445. COLOR 6:LOCATE 7,31:PRINT "Ruestung:":COLOR 7:LOCATE 7,45:PRINT  kleidung$
  446. COLOR 6:LOCATE 9,31:PRINT "Vermoegen:":COLOR 7:LOCATE 9,44:PRINT geld
  447. COLOR 6:LOCATE 11,31:PRINT "Punkte:":COLOR 3:LOCATE 11,44:PRINT punkte
  448. COLOR 2
  449. SLEEP:SLEEP
  450. WHILE a$=""
  451. a$=INKEY$
  452. WEND
  453. RETURN
  454.  
  455. schluss:
  456. CLS:LOCATE 3,3:COLOR 7
  457. PRINT "Hey ";spieler$;", Du solltest auch mal die positive Seite"
  458. PRINT "  dieser Entwickling betrachten: Du hast es hinter Dir,"
  459. PRINT "  niemand kann Dich mehr quaelen und demuetigen..."
  460. PRINT:PRINT"  Du hast trotzdem schon";punkte;" Punkte gemacht. Bravo"
  461. COLOR 3:PRINT:PRINT"Noch ein Spiel?"
  462. PRINT "       < F1 > Na klar, ich bin doch kein looser"
  463. PRINT "       < F2 > So ein scheiss Spiel, schnell weg"
  464. WHILE 1
  465. getkey x
  466. IF x=1 THEN LOAD"TDBS",r
  467. IF x=2 THEN SYSTEM
  468. WEND
  469.  
  470. an:  
  471.  COLOR 6 
  472.  IF lebensenergie<=0 THEN schluss
  473.  IF monsterlebensenergie<=0 THEN punkte=punkte+monsterpunkte:GOTO 260 
  474.  LOCATE 6,3:PRINT"Lebensenergie: ";lebensenergie
  475.  COLOR 5
  476.  LOCATE 6,35:PRINT "Monsterenergie: ";monsterlebensenergie
  477. RETURN
  478.  
  479. kampf:
  480. CLS:LOCATE 3,3:COLOR 7
  481. PRINT "Name: ";UCASE$(spieler$):LOCATE 3,35:PRINT "Monster: ";monstername$
  482. WHILE 1
  483. duatt:
  484. x=INT(RND*(20+1))
  485. IF x<attacke THEN GOTO monstpa
  486. IF x>attacke THEN GOTO monstatt
  487. dupa:
  488. y=INT(RND*(20+1))
  489. IF y<parade THEN GOSUB an:GOTO duatt
  490. IF y>parade THEN lebensenergie=lebensenergie-monstertrefferpunkte:GOSUB an:GOTO duatt
  491. monstatt:
  492. x=INT(RND*(20+1))
  493. IF x<monsterattacke THEN GOSUB an:GOTO dupa
  494. IF x>monsterattacke THEN GOSUB an:GOTO duatt
  495. monstpa:
  496. y=INT(RND*(20+1))
  497. IF y<monsterparade THEN GOSUB an:GOTO monstatt
  498. IF y>monsterparade THEN monsterlebensenergie=monsterlebensenergie-tp:GOSUB an:GOTO monstatt
  499. WEND
  500.  
  501.  
  502.